From 42adc175515c61e6cee14312e2fc1625150af240 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 7 Nov 2012 20:24:14 -0500 Subject: [PATCH] * lisp/emacs-lisp/gv.el (gv-define-simple-setter): Fix last change. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/gv.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 020aa6c13d1..9d67db6495a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-11-08 Stefan Monnier + + * emacs-lisp/gv.el (gv-define-simple-setter): Fix last change + (bug#12812). + 2012-11-07 Chong Yidong * minibuf-eldef.el (minibuffer-eldef-shorten-default): Convert to diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el index 145c48c670e..38bb6319a03 100644 --- a/lisp/emacs-lisp/gv.el +++ b/lisp/emacs-lisp/gv.el @@ -220,7 +220,8 @@ so as to preserve the semantics of `setf'." `(gv-define-setter ,name (val &rest args) ,(if fix-return `(macroexp-let2 nil v val - (cons ',setter (append args (list v)))) + (cons ',setter (append args (list v))) + v) `(cons ',setter (append args (list val)))))) ;;; Typical operations on generalized variables. -- 2.30.2